home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Education / T-Z / WorldCap1.4 Demo.cpt / WorldCap© 1.4 Demo ƒ / EuroCap 1.4© / stack_-1.xml < prev    next >
Extensible Markup Language  |  1992-10-31  |  4KB  |  24 lines
  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
  3. <stack>
  4.     <name>in.4¬©</name>
  5.     <id>-1</id>
  6.     <cardCount>5</cardCount>
  7.     <cardID>4360</cardID>
  8.     <listID>6003</listID>
  9.     <cantModify><false /></cantModify>
  10.     <cantDelete><false /></cantDelete>
  11.     <cantAbort><false /></cantAbort>
  12.     <cardSize>
  13.         <width>640</width>
  14.         <height>480</height>
  15.     </cardSize>
  16.     <script>-- This stack, EuroCap¬© version 1.4, and its scripts are-- copyrighted,1992, by Jan K. France.  All rights are reserved-- worldwide.-- You must ask written permission to use the scripts in-- EuroCap ¬©. Address your inquiries to:--      France & Associates--      2215 Duntreath Valley Drive--      Germantown TN  39139-- Phone (901) 755-3718-- Portions ¬©1988 Steve Drazga (the SetVolume 1.0 XCMD).on openstackglobal oldUserLevel, shift, capital,countclicks, country, altcapital, altcountry, capitalcdbtns, countrycdbtns, quesbtn,corcapitals,corcountries, capdatahide menubarhide titlebarput the screenrect into screenSizeset the rect of this cd to screenSizeif there is a window "Scroll" thenhide window "Scroll"end ifput the userlevel into oldUserLevelset the userlevel to 2set textarrows to truetabkeyput false into shiftput empty into capdataput empty into countrycdbtnsput empty into capitalcdbtnsput empty into corcapitalsput empty into corcountriesstart using stack "1.WorldCap 1.4¬© Gateway"end openstackon closeStackchoose browse toolif there is a window "QWERTY-Abled"then hide window "QWERTY-Abled"domenu "Compact Stack"global oldUserLevelset the userLevel to oldUserLevelend closeStackon shift_handlerglobal shiftif shift is true then put false into shiftelse if shift is false then put true into shiftend shift_handleron capslock_handlerglobal shiftif shift is true then put false into shiftelse if shift is false then put true into shiftif shift is true then capshiliteelse if shift is false then uncapshiliteend capslock_handleron cleancloseif there is a window "QWERTY-Abled" thenhide window "QWERTY-Abled"end ifset visible of card field "Question" to falseset visible of card field "Answer" to falseput empty into card field "Question"put empty into card field "Answer"end cleancloseon keydown whichkeyglobal revealcountry, revealcapital,country, capitalif whichkey is "1" or whichkey is "!" thenrevealhintelse if whichkey is 2 or whichkey is "@" thengo cd "Menu"elsepass keydownend ifend keydownon handleroneglobal revealcountry, revealcapital,country, capitalrevealhintif the short name of this cd is "Capitals to Countries" or the short name of this cd is "Countries to Capitals" thenselect after text of cd fld "Answer"end ifend handleroneon handlertwogo cd "Menu"end handlertwoon handlerthreeend handlerthreeon handlerzeroend handlerzeroon revealhintglobal revealcountry,revealcapital,country,capitalif the short name of this cd is "Capitals to Countries" thenadd 1 to revealcountrylock screenput char 1 to revealcountry of country into cd fld "Answer"unlock screen with dissolveselect after text of cd fld "Answer"end ifif the short name of this cd is "Countries to Capitals" thenadd 1 to revealcapitallock screenput char 1 to revealcapital of capital into cd fld "Answer"unlock screen with dissolveselect after text of cd fld "Answer"end ifend revealhint</script>
  17.     <background id="2641" file="background_2641.xml" name="" />
  18.     <card id="4360" file="card_4360.xml" marked="false" name="Menu" owner="2641" />
  19.     <card id="2873" file="card_2873.xml" marked="false" name="Countries to Capitals" owner="2641" />
  20.     <card id="3958" file="card_3958.xml" marked="false" name="Correct" owner="2641" />
  21.     <card id="2178" file="card_2178.xml" marked="false" name="Incorrect" owner="2641" />
  22.     <card id="5318" file="card_5318.xml" marked="false" name="Capitals to Countries" owner="2641" />
  23. </stack>
  24.